home *** CD-ROM | disk | FTP | other *** search
/ American History: Interactive Maps & User's Guide / American History: Interactive Maps & User's Guide.iso / pc / ImapTest.dxr / 00007_Initialize set of questions for I-Map.ls < prev    next >
Encoding:
Text File  |  2000-01-25  |  1.5 KB  |  40 lines
  1. on exitFrame
  2.   global IMapTest, gChapter
  3.   case gChapter of
  4.     2:
  5.       set lIntAnswerList to [1, 3, 1, 3, 3, 1, 1, 3, 1, 3]
  6.       set llntQuestionType to [3, 3, 3, 3, 3, 3, 3, 3, 3, 3]
  7.     5:
  8.       set lIntAnswerList to [3, 1, 3, 2, 3, 1, 2, 2, 3, 1]
  9.       set llntQuestionType to [3, 3, 3, 3, 3, 3, 3, 3, 3, 3]
  10.     10:
  11.       set lIntAnswerList to [1, 3, 1, 2, 3, 2, 1, 2, 3, 3]
  12.       set llntQuestionType to [3, 3, 3, 3, 3, 3, 3, 3, 3, 3]
  13.     12:
  14.       set lIntAnswerList to [1, 1, 3, 2, 1, 3, 2, 1, 2, 1]
  15.       set llntQuestionType to [3, 3, 3, 3, 3, 3, 3, 3, 3, 3]
  16.     13:
  17.       set lIntAnswerList to [2, 1, 1, 2, 3, 1, 1, 2, 3, 2]
  18.       set llntQuestionType to [3, 3, 3, 3, 3, 3, 3, 3, 3, 3]
  19.     17:
  20.       set lIntAnswerList to [14, 3, 3, 3, 24, 3, 3, 4, 2, 2]
  21.       set llntQuestionType to [5, 4, 4, 4, 5, 4, 4, 4, 4, 4]
  22.     19:
  23.       set lIntAnswerList to [2, 1, 3, 1, 1, 2, 2, 1, 2, 3]
  24.       set llntQuestionType to [3, 3, 3, 3, 3, 3, 3, 3, 3, 3]
  25.     21:
  26.       set lIntAnswerList to [2, 14, 1, 2, 3, 2, 1, 1, 3, 3]
  27.       set llntQuestionType to [4, 5, 4, 3, 4, 4, 4, 4, 4, 4]
  28.     26:
  29.       set lIntAnswerList to [2, 1, 3, 3, 3, 3, 1, 1, 3, 3]
  30.       set llntQuestionType to [3, 3, 3, 3, 3, 3, 3, 3, 3, 3]
  31.     29:
  32.       set lIntAnswerList to [1, 1, 1, 1, 2, 1, 3, 1, 3, 2]
  33.       set llntQuestionType to [3, 3, 3, 3, 3, 3, 3, 3, 3, 3]
  34.   end case
  35.   set lIntSpriteStart to 15
  36.   set lIntDoneSprite to 30
  37.   set lIntBarResponseSprite to 32
  38.   initImapValues(IMapTest, lIntAnswerList, llntQuestionType, lIntSpriteStart, lIntDoneSprite, lIntBarResponseSprite)
  39. end
  40.